home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / util / rm / purge < prev    next >
AmigaDOS Script File  |  1990-01-28  |  536b  |  19 lines
  1. .key drive
  2. .bra [
  3. .ket ]
  4.  
  5. if [drive]~ eq ~
  6.   purge DH0:
  7.   purge DH1:
  8. else
  9.   info [drive] | search STDIN [drive] | read num drive size used free per errs stat name
  10.   delete >nil: [drive]Junk/#? all quiet
  11.   info [drive] | search STDIN [drive] | read num drive size used1 free1 per1 errs stat name
  12.  
  13.   rx "parse value '${per1}' || '${per}' with p1 '%' p '%'; say 'Purged ${drive} (${name}, ${size}) -- Usage went from ${per} to ${per1} ('p1-p'%).'"
  14.  
  15.   diff= num= drive= size= used= free= per= errs= stat= name= used1= free1=
  16.   per1=
  17. endif
  18.  
  19.